home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
amicad
/
arexx
/
newscript.amicad
< prev
next >
Wrap
Text File
|
1998-03-03
|
2KB
|
53 lines
/* NewScript.AmiCAD, 3 Mars 1998 © R.Florac, version 1.00e */
/* Chargement automatique d'un nouveau script dans Amitex depuis AmiCAD
Le script lance Amitex s'il ne tourne pas et demande le
chargement du fichier squelette.AmiCAD dans une fenêtre.
Le curseur est directement placé sur la ligne où doit
débuter la partie particulière au script, après les
déclarations usuelles. L'utilisateur est invité à donner
le nom du nouveau script afin de donner le titre adéquat
au script.
Ce script peut être appelé depuis l'un des menus Macros/ARexx.
Il peut être adapté à n'importe quel éditeur de texte
possédant une interface ARexx. */
signal on error /* pour l'interception des erreurs */
signal on syntax
options results
cr='0a'x
port = ADDRESS() /* lecture du nom du port EdiCalc */
address command
if ~show(p, "AMITEX") then do
f=0 /* il n'y avait pas de fenêtre ouverte */
'run > nil:' "c:AmiTex" /* chargement de l'éditeur */
waitforport "AMITEX"
end
else f=1 /* il y a déjà une fenêtre active */
ADDRESS(AMITEX)
if f=1 then 'NEW("Nouveau.AmiCAD")' /* demande l'ouverture d'une autre fenêtre */
'LOAD("Travail:AmiCAD/ARexx/squelette.AmiCAD")' /* demande le chargement du script "squelette" */
'ASK("Quel est le nom'cr'de ce nouveau script ?")' /* demande du titre */
titre = result||'.AmiCAD'
if titre ~= "" then 'FILENAME("Travail:AmiCAD/ARexx/'titre'")' /* renomme la fenêtre */
'GOTO(1,10)'
exit
/* Traitement des erreurs, interruption du programme */
syntax:
address (port)
erreur=RC
'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
address (port)
'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
exit